COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "UNPACK"
C00003 ENDMK
C⊗;
BEGIN "UNPACK"
STRING FN; INTEGER ARRAY HD[0:10]; INTEGER IC,OC,I;
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
DO PRINT("File:") UNTIL (IC←OPNPFL(FN←INCHWL,HD[0]))≥0;
OC←CREPFL(HD[0],FN);
   BEGIN
   INTEGER ARRAY LIN[0:HD[LNWD]];
   FOR I←1 STEP 1 UNTIL HD[PCLN] DO
      BEGIN
      PFLIN(IC,LIN[0],HD[LNWD]);
      PFLOUT(OC,LIN[0],HD[LNWD]);
      END;
   PFLCLS(OC);
   PFLCLS(IC);
   END;
END "UNPACK";